SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO
Create Procedure [dbo].[SP_TMSABA_MENS_I02]
/*-------------------------------------------------------*/
/*---Empresa              : OFISIS S.A.                --*/
/*---Cliente              : OFISIS                 --*/
/*---Sistema              : Tesoreria                  --*/
/*---M¸dulo               : Empresa                    --*/
/*---Programa             : Cierre Masiva   de Mes de  --*/
/*---                       Bancos                     --*/
/*---Script               : tmsaba_m.sql               --*/
/*---Nombre SP            : SP_TMSABA_MENS_I02         --*/
/*---Desarrollado por     : Javier Flores A.           --*/
/*---Fecha Creaci¸n       : 15/07/1999                 --*/
/*---Base Datos           : Microsoft Sql Server       --*/
/*---Versi¸n              : 7.0                        --*/
/*---Invoca a SP          :                            --*/
/*-------------------------------------------------------*/

/*-------------------------------------------------------*/
/*---Modificado 1 por     :                            --*/
/*---Fecha Modificaci¸n   :                            --*/ 
/*---Detalle Modificaci¸n :                            --*/
/*-------------------------------------------------------*/

/*-------------------------------------------------------*/
/*---Comentarios                                       --*/
/*---                                                  --*/
/*---                                                  --*/
/*-------------------------------------------------------*/

/*-------------------------------------------------------*/
/*---Drop Proc SP_TMSABA_MENS_I02                      --*/
/*---Grant Execute on SP_TMSABA_MENS_I02 to public     --*/ 
/*---SP_TMSABA_MENS_I02                                --*/
/*-------------------------------------------------------*/
 @ISCO_EMPR TD_VC_002, 
 @ISCO_USUA_MODI TD_VC_008_USUA,
 @ISCO_BANC TD_VC_003, 
 @ISNU_CNTA_BANC TD_VC_020,
 @ISAA_BNCO TD_VC_004, 
 @ISMM_BNCO TD_VC_002,
 @INIM_SALD_INIC TD_NU_016_004,
 @ISNU_ANNO_ANTE TD_VC_004, 
 @ISNU_MESE_ANTE TD_VC_002
	As
 Declare 
    @VNIM_SALD_INIC TD_NU_016_004
 
 Begin Tran SP_TMSABA_MENS_I02

    Update    TMSABA_MENS 
    Set       TI_SITU = 'CER',  
              FE_USUA_MODI = GETDATE(), 
              CO_USUA_MODI = @ISCO_USUA_MODI
    Where     CO_EMPR = @ISCO_EMPR 
    And       CO_BANC = @ISCO_BANC 
    And       NU_CNTA_BANC = @ISNU_CNTA_BANC 
    And       AA_BNCO = @ISAA_BNCO 
    And       MM_BNCO = @ISMM_BNCO

    If @@error <> 0
       Begin
         Rollback tran
	   Return
       End    

    Select  @VNIM_SALD_INIC = Isnull(IM_SALD_INIC,0) + Isnull(IM_INGR,0) - Isnull(IM_EGRE,0)
    From	TMSABA_MENS
    Where	CO_EMPR = @ISCO_EMPR 
    And     CO_BANC = @ISCO_BANC
    And     NU_CNTA_BANC = @ISNU_CNTA_BANC 
    And     AA_BNCO = @ISAA_BNCO 
    And     MM_BNCO = @ISMM_BNCO
    
    Update   TMSABA_MENS 
    Set      IM_SALD_INIC = @VNIM_SALD_INIC, 
	       FE_USUA_MODI = GETDATE(), 
             CO_USUA_MODI = @ISCO_USUA_MODI
    Where    CO_EMPR = @ISCO_EMPR 
    And      CO_BANC = @ISCO_BANC 
    And      NU_CNTA_BANC = @ISNU_CNTA_BANC 
    And      AA_BNCO = @ISNU_ANNO_ANTE
    And      MM_BNCO = @ISNU_MESE_ANTE

    If @@error <> 0
       Begin
         Rollback tran
	   Return
       End    

Commit Transaction

/*-------------------- Fin ---------------------------*/


GO
